home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / comms / other / aminetfilerequester / rexx / scanfolderyam.rexx < prev    next >
OS/2 REXX Batch file  |  1999-11-29  |  1KB  |  49 lines
  1. /*
  2. ** ScanFolderYAM.rexx
  3. ** © 1999, Yves Grabowsky
  4. **
  5. ** THIS SCRIPT IS PART OF THE AMINETFILEREQUESTER PACKAGE
  6. ** DO NOT MODIFY!
  7. ** scan the yam folder
  8. */
  9.  
  10. if ~show("P", "YAM") then exit(20)
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 20
  14.  
  15. parse arg datesfile" "namesfile
  16.  
  17. ADDRESS YAM
  18. 'APPBUSY "AminetFileRequester: Scanning for recent mails..."'
  19.  
  20. MAILINFO STEM "res."
  21. FOLDERINFO STEM 'folder.'
  22.  
  23. DO i=0 to folder.total-1
  24.     SETMAIL i
  25.     MAILINFO STEM 'mailinfo.'
  26.     if POS("Aminet uploads on", mailinfo.subject) >0 then do
  27.         'MAILSTATUS O'
  28.         if ~EXISTS(datesfile) then call Open('dates', datesfile, WRITE)
  29.         else call Open('dates', datesfile, APPEND)
  30.         if ~EXISTS(namesfile) then call Open('names', namesfile, WRITE)
  31.         else call Open('names', namesfile, APPEND)
  32.  
  33.         call WRITELN('names', mailinfo.filename)
  34.  
  35.         if POS('week''s', mailinfo.subject) >0 then
  36.             date = SUBWORD(mailinfo.subject, 6, 1)
  37.         else date = SUBWORD(mailinfo.subject, 5, 1)
  38.  
  39.         call WRITELN('dates', date)
  40.  
  41.         call Close('names')
  42.         call Close('dates')
  43.         end
  44.     end
  45.  
  46. SETMAIL res.index
  47.  
  48. APPNOBUSY
  49.